home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Games / Board / Mosaic, 1.A.0 / Sample, 2 players, basic 1 < prev    next >
Text File  |  1992-06-02  |  2KB  |  20 lines
  1. 'tiles$player_type'(1, computer).
  2. 'tiles$player_type'(2, computer).
  3. 'tiles$player_strategy'(1, 2).
  4. 'tiles$player_strategy'(2, 2).
  5. 'tiles$game_state'(definitions, [c(t01, [a, a, a, a]), c(t02, [b, a, a, a]), c(t03, [b, b, a, a]), c(t04, [b, a, b, a]), c(t05, [a, a, a, a]), c(t06, [b, a, a, a]), c(t07, [b, b, a, a]), c(t08, [b, a, b, a]), c(t09, [b, b, b, b]), c(t10, [a, b, b, b]), c(t11, [a, a, b, b]), c(t12, [a, b, a, b]), c(t13, [b, b, b, b]), c(t14, [a, b, b, b]), c(t15, [a, a, b, b]), c(t16, [a, b, a, b])]).
  6. 'tiles$game_state'(holes, []).
  7. 'tiles$game_state'(number_of_players, 2).
  8. 'tiles$game_state'(protected_edge_positions, []).
  9. 'tiles$game_state'(pending_replacements, []).
  10. 'tiles$game_state'(hands, [2+[], 1+[]]).
  11. 'tiles$game_state'(board, [t(49-42, t16-0), t(49-43, t08-1), t(50-43, t15-0), t(50-44, t07-0), t(51-44, t14-0), t(51-45, t06-3), t(52-45, t12-0), t(52-46, t04-1), t(53-46, t11-0), t(53-47, t03-0), t(54-47, t13-0), t(54-49, t02-2), t(54-48, t09-0), t(52-49, t05-0), t(53-48, t10-0), t(53-49, t01-0)]).
  12. 'tiles$game_state'(active_sites, [active(a29, [_1, a, a, _2], 49-44), active(a33, [_3, b, _4, _5], 48-43), active(a32, [_6, b, _7, _8], 48-42), active(a31, [b, _9, _10, b], 50-42), active(a27, [b, _11, _12, a], 51-43), active(a25, [_13, a, b, _14], 50-45), active(a23, [a, _15, _16, b], 52-44), active(a21, [_17, b, a, _18], 51-46), active(a19, [b, _19, _20, b], 53-45), active(a16, [b, _21, _22, a], 54-46), active(a14, [_23, _24, _25, b], 55-47), active(a13, [_26, _27, _28, b], 55-48), active(a8, [_29, _30, a, _31], 53-50), active(a12, [_32, _33, a, _34], 54-50), active(a11, [_35, _36, _37, a], 55-49), active(a7, [_38, _39, a, _40], 52-50)]).
  13. 'tiles$game_state'(off_board_tiles, []).
  14. 'tiles$game_state'(player, 1).
  15. 'tiles$game_state'(edge_player, 1).
  16. 'tiles$game_state'(activity, select_edge).
  17. 'tiles$game_state'(associated_active_sites, []).
  18. 'tiles$game_state'(progress, progress(nolead, [e(a, 36, [16-[t10, t05, t01, t02], 4-[x(t08, 2), t16], 4-[x(t04, 2), t12], 4-[t07, t15], 4-[t06, t14], 4-[t03, t11]]), e(b, 41, [4-[x(t12, 3), t06], 4-[t15, t08], 4-[t14, t07], 4-[t11, t04], 25-[t02, t09, t10, t13, t03]])])).
  19. 'tiles$version'(6).
  20.